﻿Public Class NotaIngresoDetalle

    Dim _dcacodigo As String
    Dim _artcodigo As String
    Dim _cantidad As Integer
    Dim _dadcodigo As String
    Dim _cia, _suc As String
    Dim _tdoc As String

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tdoc As String, ByVal dcacod As String, dadcod As String, ByVal artcod As String, ByVal cant As Integer)
        Me._cia = cia
        Me._suc = suc
        Me._tdoc = tdoc
        Me._dcacodigo = dcacod
        Me._dadcodigo = dadcod
        Me._artcodigo = artcod
        Me._cantidad = cant
    End Sub

    Public Property CIA() As String
        Get
            Return _cia
        End Get
        Set(value As String)
            _cia = value
        End Set
    End Property

    Public Property SUC() As String
        Get
            Return _suc
        End Get
        Set(value As String)
            _suc = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _tdoc
        End Get
        Set(value As String)
            _tdoc = value
        End Set
    End Property

    Public Property DCA_Codigo() As String
        Get
            Return _dcacodigo
        End Get
        Set(ByVal value As String)
            _dcacodigo = value
        End Set
    End Property

    Public Property DAD_Codigo() As String
        Get
            Return _dadcodigo
        End Get
        Set(value As String)
            _dadcodigo = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _artcodigo
        End Get
        Set(ByVal value As String)
            _artcodigo = value
        End Set
    End Property

    Public Property DAD_Cantidad() As Integer
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Integer)
            _cantidad = value
        End Set
    End Property

End Class
